PC Gamer (Italian) 27/PC Gamer IT CD 27.iso/MEDIA/STORE.DXR/Internal_86_scrollywolly.ls

Text File | 1997-12-01 | 362 b | 21 lines

on mouseEnter me
  cursor(280)
end

on mouseLeave me
  cursor(-1)
end

on mouseDown me
  puppetSprite(the currentSpriteNum, 1)
  set the member of sprite the currentSpriteNum to "uppety.down"
  repeat while the mouseDown = 1
    scrollByLine(member "description", -1)
    updateStage()
  end repeat
end

on mouseUp me
  puppetSprite(the currentSpriteNum, 0)
end